home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / csfilesc / frmabout.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-10-01  |  3.1 KB  |  101 lines
  1. VERSION 5.00
  2. Begin VB.Form dlgAbout 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "About"
  5.    ClientHeight    =   1395
  6.    ClientLeft      =   45
  7.    ClientTop       =   285
  8.    ClientWidth     =   3345
  9.    ControlBox      =   0   'False
  10.    Icon            =   "frmAbout.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   93
  15.    ScaleMode       =   3  'Pixel
  16.    ScaleWidth      =   223
  17.    ShowInTaskbar   =   0   'False
  18.    StartUpPosition =   1  'CenterOwner
  19.    Begin VB.CommandButton cmdOk 
  20.       Caption         =   "&OK"
  21.       Height          =   465
  22.       Left            =   2790
  23.       TabIndex        =   0
  24.       Top             =   810
  25.       Width           =   465
  26.    End
  27.    Begin VB.Label Label2 
  28.       Alignment       =   2  'Center
  29.       BackStyle       =   0  'Transparent
  30.       BeginProperty Font 
  31.          Name            =   "MS Sans Serif"
  32.          Size            =   9.75
  33.          Charset         =   0
  34.          Weight          =   700
  35.          Underline       =   0   'False
  36.          Italic          =   0   'False
  37.          Strikethrough   =   0   'False
  38.       EndProperty
  39.       Height          =   240
  40.       Left            =   120
  41.       TabIndex        =   2
  42.       Top             =   480
  43.       Width           =   3060
  44.    End
  45.    Begin VB.Label Label1 
  46.       Alignment       =   2  'Center
  47.       BackStyle       =   0  'Transparent
  48.       BeginProperty Font 
  49.          Name            =   "MS Sans Serif"
  50.          Size            =   9.75
  51.          Charset         =   0
  52.          Weight          =   700
  53.          Underline       =   0   'False
  54.          Italic          =   0   'False
  55.          Strikethrough   =   0   'False
  56.       EndProperty
  57.       Height          =   240
  58.       Left            =   105
  59.       TabIndex        =   1
  60.       Top             =   120
  61.       Width           =   3090
  62.    End
  63.    Begin VB.Image Image2 
  64.       BorderStyle     =   1  'Fixed Single
  65.       Height          =   390
  66.       Left            =   1140
  67.       MouseIcon       =   "frmAbout.frx":030A
  68.       MousePointer    =   99  'Custom
  69.       Picture         =   "frmAbout.frx":045C
  70.       ToolTipText     =   "Visit us at http://www.computersimple.com/"
  71.       Top             =   870
  72.       Width           =   1065
  73.    End
  74.    Begin VB.Image Image1 
  75.       Height          =   480
  76.       Left            =   120
  77.       Picture         =   "frmAbout.frx":1626
  78.       Top             =   810
  79.       Width           =   480
  80.    End
  81. Attribute VB_Name = "dlgAbout"
  82. Attribute VB_GlobalNameSpace = False
  83. Attribute VB_Creatable = False
  84. Attribute VB_PredeclaredId = True
  85. Attribute VB_Exposed = False
  86. Option Explicit
  87. Private Sub cmdOk_Click()
  88.     On Error Resume Next
  89.     Me.Hide
  90. End Sub
  91. Private Sub Form_Load()
  92.     On Error Resume Next
  93.     Me.ZOrder
  94.     Label1 = App.EXEName & " Ver " & CStr(App.Major) & "." & CStr(App.Minor) & IIf(App.Revision > 0, "." & CStr(App.Revision), "")
  95.     Label2 = Chr$(169) & "1997"
  96. End Sub
  97. Private Sub Image2_Click()
  98.     On Error Resume Next
  99.     Me.Hide
  100. End Sub
  101.